﻿Public Class PanelWithBorder
  Inherits Panel

  Private _fg As Color = Color.Black

  Public Shadows Property ForeColor()
    Get
      Return Me._fg
    End Get
    Set(ByVal value)
      Me._fg = value
    End Set
  End Property

  Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
    MyBase.OnPaint(e)
    e.Graphics.DrawRectangle(New Pen(Me._fg, 1.0F), Me.ClientRectangle.X, Me.ClientRectangle.Y, Me.ClientRectangle.Width - 1, Me.ClientRectangle.Height - 1)
  End Sub
End Class
